R Notebook

library(shiny)
library(shinyWidgets)
library(janitor)
library(tidyverse)
library(leaflet)
library(tsibble)
library(shinythemes) # Themes maybe?
library(ggthemes)
library(infer)
library(shinydashboard)
library(tsibbledata)
library(fable)
library(slider)
library(feasts)
library(tidyquant)
library(sf)
library(rgdal)
library(lubridate)
library(sf)
library(rgdal)
library(leaflet)

beds <- read_csv("beds_specialty.csv")

# read in shape file
hb_shapes <- st_read("SG_NHS_HealthBoards_2019/SG_NHS_HealthBoards_2019.shp")

beds_specialty_data %>% 
  clean_names() %>% 
  mutate(q = str_sub(quarter, -2),
         quarter = yq(quarter),
         date = quarter,
         quarter = q) %>%
  mutate(hb = if_else(hb %in% "S08000015", "Ayrshire & Arran",
              if_else(hb %in% "S08000016", "Borders",
              if_else(hb %in% "S08000017", "Dumfries & Galloway",
              if_else(hb %in% "S08000019", "Forth Valley",
              if_else(hb %in% "S08000020", "Grampian",
              if_else(hb %in% "S08000022", "Highland",
              if_else(hb %in% "S08000024", "Lothian",
              if_else(hb %in% "S08000025", "Orkney",
              if_else(hb %in% "S08000026", "Shetland",
              if_else(hb %in% "S08000028", "Western Isles",
              if_else(hb %in% "S08000029", "Fife",
              if_else(hb %in% "S08000030", "Tayside",
              if_else(hb %in% "S08000031", "Greater Glasgow & Clyde",
              if_else(hb %in% "S08000032", "Lanarkshire",
              if_else(hb %in% "S92000003", "Scotland", NA_character_)
              ))))))))))))))) %>% 
  filter(location_qf == "d") %>%
  # additional cleaning - to be added in
  filter(location != is.na(location)) %>% 
  select(date, quarter, hb, specialty_name, all_staffed_beds, 
         total_occupied_beds, average_available_staffed_beds,
         average_occupied_beds, percentage_occupancy) %>%
  rename(hb_name = hb)

Error in clean_names(.) : object 'beds_specialty_data' not found

made acute_only just to try and plot on map to see if it would work